inherited frmMeterSetRefpoint: TfrmMeterSetRefpoint
  Left = 498
  Top = 295
  Width = 299
  Height = 275
  Caption = #1059#1089#1090#1072#1085#1086#1074#1082#1072' '#1090#1086#1095#1082#1080' '#1086#1090#1089#1095#1077#1090#1072
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 221
    Width = 291
    inherited BitBtn1: TBitBtn
      Left = 84
    end
    inherited BitBtn2: TBitBtn
      Left = 186
    end
  end
  inherited ToolBar1: TToolBar
    Top = 113
    Width = 291
    Height = 0
  end
  object GroupBox2: TGroupBox [2]
    Left = 0
    Top = 0
    Width = 291
    Height = 113
    Align = alTop
    Caption = ' '#1057#1095#1077#1090#1095#1080#1082' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Label3: TLabel
      Left = 70
      Top = 18
      Width = 67
      Height = 13
      Alignment = taRightJustify
      Caption = #1058#1080#1087' '#1089#1095#1077#1090#1095#1080#1082#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 47
      Top = 41
      Width = 90
      Height = 13
      Alignment = taRightJustify
      Caption = #1047#1072#1074#1086#1076#1089#1082#1086#1081' '#1085#1086#1084#1077#1088
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 87
      Top = 62
      Width = 50
      Height = 13
      Alignment = taRightJustify
      Caption = #1053#1072#1079#1074#1072#1085#1080#1077
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 24
      Top = 86
      Width = 113
      Height = 13
      Alignment = taRightJustify
      Caption = #1055#1086#1089#1083#1077#1076#1085#1080#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBEditEh1: TDBEditEh
      Left = 144
      Top = 38
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DataField = 'METER_NUM'
      DataSource = dscMeterInfo
      EditButtons = <>
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      Visible = True
    end
    object DBEditEh2: TDBEditEh
      Left = 144
      Top = 62
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DataField = 'NAME'
      DataSource = dscMeterInfo
      EditButtons = <>
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      Visible = True
    end
    object DBEditEh3: TDBEditEh
      Left = 144
      Top = 14
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DataField = 'METER_TYPE_NAME'
      DataSource = dscMeterInfo
      EditButtons = <>
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      Visible = True
    end
    object DBEditEh6: TDBEditEh
      Left = 144
      Top = 86
      Width = 121
      Height = 19
      AlwaysShowBorder = True
      DataField = 'SAY_IND'
      DataSource = dscMeterInfo
      EditButtons = <>
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      Visible = True
    end
  end
  object GroupBox1: TGroupBox [3]
    Left = 0
    Top = 113
    Width = 291
    Height = 108
    Align = alClient
    Caption = ' '#1058#1086#1095#1082#1072' '#1086#1090#1089#1095#1077#1090#1072' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object Label2: TLabel
      Left = 16
      Top = 62
      Width = 248
      Height = 39
      Caption = 
        #1042#1053#1048#1052#1040#1053#1048#1045'! '#1055#1086#1085#1103#1090#1080#1077' "'#1058#1086#1095#1082#1072' '#1086#1090#1089#1095#1077#1090#1072'" '#1086#1079#1085#1072#1095#1072#1077#1090' '#1095#1090#1086' '#1087#1086' '#1089#1095#1077#1090#1095#1080#1082#1091' '#1085#1072' '#1079#1072 +
        #1076#1072#1085#1085#1091#1102' '#1076#1072#1090#1091' '#1089' '#1091#1082#1072#1079#1072#1085#1085#1099#1084#1080' '#1087#1086#1082#1072#1079#1072#1085#1080#1103#1084#1080' '#1076#1086#1083#1075' '#1089#1074#1077#1088#1077#1085' '#1080' '#1088#1072#1074#1077#1085' 0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Label5: TLabel
      Left = 93
      Top = 18
      Width = 44
      Height = 13
      Alignment = taRightJustify
      Caption = #1044#1072#1090#1072' TO'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 81
      Top = 42
      Width = 56
      Height = 13
      Alignment = taRightJustify
      Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object dbtDismountDate: TDBDateTimeEditEh
      Left = 142
      Top = 14
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      DataField = 'REFDATE'
      DataSource = dscMeterInfo
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Kind = dtkDateEh
      ParentFont = False
      TabOrder = 0
      Visible = True
    end
    object dbePH: TDBNumberEditEh
      Left = 142
      Top = 38
      Width = 89
      Height = 19
      AlwaysShowBorder = True
      DataField = 'REFPOINT'
      DataSource = dscMeterInfo
      EditButtons = <
        item
          Style = ebsMinusEh
          Width = 16
          OnClick = dbePHEditButtons0Click
        end
        item
          Style = ebsPlusEh
          Width = 16
          OnClick = dbePHEditButtons1Click
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      TabOrder = 1
      Visible = True
    end
  end
  inherited ActionList1: TActionList
    Left = 24
    Top = 65534
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Active = False
  end
  object dsMeterInfo: TpFIBDataSet
    UpdateSQL.Strings = (
      
        'EXECUTE PROCEDURE PROC_METER_SET_REFPOINT (:PPAY_ID, :REFPOINT, ' +
        ':REFPOINT, :REFDATE)')
    SelectSQL.Strings = (
      'select m.id,'
      
        '(select mt.NAME from meter_types mt where mt.id = m.meter_type) ' +
        'as METER_TYPE_NAME,'
      
        '(select mt.PRECIS from meter_types mt where mt.id = m.meter_type' +
        ') as PRECIS,'
      
        '(select mt.CAPACITY from meter_types mt where mt.id = m.meter_ty' +
        'pe) as CAPACITY,'
      'm.METER_NUM,'
      'm.NAME,'
      'm.SAY_IND,'
      'current_date as refdate,'
      'm.SAY_IND as refpoint,'
      '0 as ppay_id'
      'from meters m'
      'where m.id = (select meter_id from pays p where p.id = :pay_id)')
    AllowedUpdateKinds = [ukModify]
    Transaction = trMeter
    Database = MAINDM.pMainDatabase
    Left = 26
    Top = 32
    object dsMeterInfoID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsMeterInfoMETER_TYPE_NAME: TFIBStringField
      FieldName = 'METER_TYPE_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object dsMeterInfoMETER_NUM: TFIBStringField
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object dsMeterInfoNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsMeterInfoSAY_IND: TFIBBCDField
      FieldName = 'SAY_IND'
      Size = 3
      RoundByScale = True
    end
    object dsMeterInfoREFDATE: TFIBDateField
      FieldName = 'REFDATE'
    end
    object dsMeterInfoREFPOINT: TFIBBCDField
      FieldName = 'REFPOINT'
      Size = 3
      RoundByScale = True
    end
    object dsMeterInfoPPAY_ID: TFIBIntegerField
      FieldName = 'PPAY_ID'
    end
    object dsMeterInfoPRECIS: TFIBIntegerField
      FieldName = 'PRECIS'
    end
    object dsMeterInfoCAPACITY: TFIBIntegerField
      FieldName = 'CAPACITY'
    end
  end
  object dscMeterInfo: TDataSource
    DataSet = dsMeterInfo
    Left = 59
    Top = 32
  end
  object trMeter: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 59
  end
end
